In This Topic
Programming / PDF / Filling forms in a PDF document, flattening them and saving the result

Filling forms in a PDF document, flattening them and saving the result

In This Topic

The goal of this example is to open a fillable PDF document, fill-in forms, flatten the document and save the result with a different name, keeping the original form untouched.

Copy Code 
'We assume that GdPicture has been correctly installed and unlocked.

Dim oGdPicturePDF As New GdPicturePDF()

'Loading the PDF document.

Dim status As GdPictureStatus = oGdPicturePDF.LoadFromFile("Form.pdf", False)

If status <> GdPictureStatus.OK Then

    MessageBox.Show("The PDF document can't be loaded. Error: " + status.ToString(), "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Error)

    GoTo [end]

End If

'Getting the number of form fields.

status = GdPictureStatus.OK

Dim FieldCount As Integer = oGdPicturePDF.GetFormFieldsCount()

For x As Integer = 0 To FieldCount - 1

    'Getting the field identifier.

    Dim FormFieldId As Integer = oGdPicturePDF.GetFormFieldId(x)

    status = oGdPicturePDF.GetStat()

    If status = GdPictureStatus.OK Then

        'Getting the field title.

        Dim FormFieldTitle As String = oGdPicturePDF.GetFormFieldTitle(FormFieldId)

        status = oGdPicturePDF.GetStat()

        If status = GdPictureStatus.OK Then

            'Using the field title to put the text into the form field.

            Select Case FormFieldTitle

                Case "Name"

                    oGdPicturePDF.SetFormFieldValue(FormFieldId, "Doe")

                    Exit Select

                Case "Nickname"

                    oGdPicturePDF.SetFormFieldValue(FormFieldId, "John")

                    Exit Select

                Case "COI"

                    oGdPicturePDF.SetFormFieldValue(FormFieldId, "Tennis, Swimming, Golf, SF books")

                    Exit Select

            End Select

        Else

            Exit For

        End If

    Else

        Exit For

    End If

Next

If status = GdPictureStatus.OK Then

    'Flattening forms.

    status = oGdPicturePDF.FlattenFormFields()

    If status <> GdPictureStatus.OK Then

        MessageBox.Show("Error occurred when flatenning forms. Error: " + status.ToString(), "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Error)

        GoTo [end]

    End If

    'Saving the result.

    status = oGdPicturePDF.SaveToFile("Form_filled.pdf")

    If status <> GdPictureStatus.OK Then

        MessageBox.Show("The PDF document can't be saved. Error: " + status.ToString(), "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Error)

    Else

        MessageBox.Show("Done!", "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End If

Else

    MessageBox.Show("Error occurred when filling forms. Error: " + status.ToString(), "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

[end]:

oGdPicturePDF.Dispose()
Copy Code 
//We assume that GdPicture has been correctly installed and unlocked.

GdPicturePDF oGdPicturePDF = new GdPicturePDF();

//Loading the PDF document.

GdPictureStatus status = oGdPicturePDF.LoadFromFile("Form.pdf", false);

if (status != GdPictureStatus.OK)

{

    MessageBox.Show("The PDF document can't be loaded. Error: " + status.ToString(), "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Error);

    goto end;

}

//Getting the number of form fields.

status = GdPictureStatus.OK;

int FieldCount = oGdPicturePDF.GetFormFieldsCount();

for (int x = 0; x <= FieldCount - 1; x++)

{

    //Getting the field identifier.

    int FormFieldId = oGdPicturePDF.GetFormFieldId(x);

    status = oGdPicturePDF.GetStat();

    if (status == GdPictureStatus.OK)

    {

        //Getting the field title.

        string FormFieldTitle = oGdPicturePDF.GetFormFieldTitle(FormFieldId);

        status = oGdPicturePDF.GetStat();

        if (status == GdPictureStatus.OK)

        {

            //Using the field title to put the text into the form field.

            switch (FormFieldTitle)

            {

                case "Name":

                    oGdPicturePDF.SetFormFieldValue(FormFieldId, "Doe");

                    break;

                case "Nickname":

                    oGdPicturePDF.SetFormFieldValue(FormFieldId, "John");

                    break;

                case "COI":

                    oGdPicturePDF.SetFormFieldValue(FormFieldId, "Tennis, Swimming, Golf, SF books");

                    break;

            }

        }

        else

            break;

    }

    else

        break;

}

if (status == GdPictureStatus.OK)

{

    //Flattening forms.

    status = oGdPicturePDF.FlattenFormFields();

    if (status != GdPictureStatus.OK)

    {

        MessageBox.Show("Error occurred when flatenning forms. Error: " + status.ToString(), "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Error);

        goto end;

    }

    //Saving the result.

    status = oGdPicturePDF.SaveToFile("Form_filled.pdf");

    if (status != GdPictureStatus.OK)

    {

        MessageBox.Show("The PDF document can't be saved. Error: " + status.ToString(), "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Error);

    }

    else

        MessageBox.Show("Done!", "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Information);

}

else

{

    MessageBox.Show("Error occurred when filling forms. Error: " + status.ToString(), "Filling Forms Example", MessageBoxButtons.OK, MessageBoxIcon.Error);

} 

end:

oGdPicturePDF.Dispose();